home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00001_Prepare Stop Code.ls next >
Encoding:
Text File  |  2000-01-27  |  625 b   |  25 lines
  1. on prepareMovie
  2.   if count(the windowList) = 0 then
  3.     clearGlobals()
  4.     MapList = []
  5.     repeat with X = 1 to X = 45
  6.       castLocation = (X * 2) - 1
  7.       listName = member(castLocation, "DBMap").name
  8.       add(MapList, listName)
  9.     end repeat
  10.     castLocation = (random(45) * 2) - 1
  11.     put castLocation
  12.     fn = member(castLocation, "DBMap").name
  13.     init(fn && "Dummy Title", fn)
  14.   end if
  15. end
  16.  
  17. on CloseMIAW
  18.   global gDBPictObjList, gForgetList
  19.   go(the frame + 1)
  20.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  21.   condemn(MyObj)
  22.   deleteProp(gDBPictObjList, GetObjProp())
  23.   append(gForgetList, the activeWindow)
  24. end
  25.